home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / ToolUtils.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  4.3 KB  |  163 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        ToolUtils.mod
  3.  
  4.      Contains:    Toolbox Utilities Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$IF UNDEFINED OLDROUTINELOCATIONS*)
  21. (*$SET OLDROUTINELOCATIONS FALSE*)
  22. (*$END*)
  23. (*$TAGS-*)
  24. (*$CALLING PASCAL*)
  25. MODULE ToolUtils;
  26.  
  27. IMPORT SYSTEM, Types, Quickdraw;
  28.  
  29. (* $PUSH*)
  30. (* $ALIGN MAC68K*)
  31. (* $LibExport+*)
  32.  
  33. CONST
  34.     sysPatListID*                = 0;
  35.     iBeamCursor*                    = 1;
  36.     crossCursor*                    = 2;
  37.     plusCursor*                    = 3;
  38.     watchCursor*                    = 4;
  39.  
  40.  
  41. TYPE
  42.     Int64Bit* = RECORD
  43.         hiLong*:                    LONGINT;
  44.         loLong*:                    LONGINT;
  45.     END;
  46.  
  47.  
  48. PROCEDURE FixRatio*(numer: INTEGER; denom: INTEGER): Types.Fixed;
  49.     (*$IF NOT GENERATINGCFM*)
  50.     INLINE PASCAL $A869;
  51.     (*$END*)
  52. PROCEDURE FixMul*(a: Types.Fixed; b: Types.Fixed): Types.Fixed;
  53.     (*$IF NOT GENERATINGCFM*)
  54.     INLINE PASCAL $A868;
  55.     (*$END*)
  56. PROCEDURE FixRound*(x: Types.Fixed): INTEGER;
  57.     (*$IF NOT GENERATINGCFM*)
  58.     INLINE PASCAL $A86C;
  59.     (*$END*)
  60. PROCEDURE PackBits*(VAR srcPtr: Types.Ptr; VAR dstPtr: Types.Ptr; srcBytes: INTEGER);
  61.     (*$IF NOT GENERATINGCFM*)
  62.     INLINE PASCAL $A8CF;
  63.     (*$END*)
  64. PROCEDURE UnpackBits*(VAR srcPtr: Types.Ptr; VAR dstPtr: Types.Ptr; dstBytes: INTEGER);
  65.     (*$IF NOT GENERATINGCFM*)
  66.     INLINE PASCAL $A8D0;
  67.     (*$END*)
  68. PROCEDURE BitTst*(bytePtr: (*ΔΔUNIVΔΔ*) Types.Ptr; bitNum: LONGINT): BOOLEAN;
  69.     (*$IF NOT GENERATINGCFM*)
  70.     INLINE PASCAL $A85D;
  71.     (*$END*)
  72. PROCEDURE BitSet*(bytePtr: (*ΔΔUNIVΔΔ*) Types.Ptr; bitNum: LONGINT);
  73.     (*$IF NOT GENERATINGCFM*)
  74.     INLINE PASCAL $A85E;
  75.     (*$END*)
  76. PROCEDURE BitClr*(bytePtr: (*ΔΔUNIVΔΔ*) Types.Ptr; bitNum: LONGINT);
  77.     (*$IF NOT GENERATINGCFM*)
  78.     INLINE PASCAL $A85F;
  79.     (*$END*)
  80. PROCEDURE BitAnd*(value1: LONGINT; value2: LONGINT): LONGINT;
  81.     (*$IF NOT GENERATINGCFM*)
  82.     INLINE PASCAL $A858;
  83.     (*$END*)
  84. PROCEDURE BitOr*(value1: LONGINT; value2: LONGINT): LONGINT;
  85.     (*$IF NOT GENERATINGCFM*)
  86.     INLINE PASCAL $A85B;
  87.     (*$END*)
  88. PROCEDURE BitXor*(value1: LONGINT; value2: LONGINT): LONGINT;
  89.     (*$IF NOT GENERATINGCFM*)
  90.     INLINE PASCAL $A859;
  91.     (*$END*)
  92. PROCEDURE BitNot*(value: LONGINT): LONGINT;
  93.     (*$IF NOT GENERATINGCFM*)
  94.     INLINE PASCAL $A85A;
  95.     (*$END*)
  96. PROCEDURE BitShift*(value: LONGINT; count: INTEGER): LONGINT;
  97.     (*$IF NOT GENERATINGCFM*)
  98.     INLINE PASCAL $A85C;
  99.     (*$END*)
  100. (*$IF GENERATING68K *)
  101. PROCEDURE LongMul*(a: LONGINT; b: LONGINT; VAR result: Int64Bit);
  102.     (*$IF NOT GENERATINGCFM*)
  103.     INLINE PASCAL $A867;
  104.     (*$END*)
  105. (*$END*)
  106. (*$IF OLDROUTINELOCATIONS *)
  107. PROCEDURE GetIcon*(iconID: INTEGER): Types.Handle;
  108.     (*$IF NOT GENERATINGCFM*)
  109.     INLINE PASCAL $A9BB;
  110.     (*$END*)
  111. PROCEDURE PlotIcon*((*CONST*)VAR theRect: Types.Rect; theIcon: Types.Handle);
  112.     (*$IF NOT GENERATINGCFM*)
  113.     INLINE PASCAL $A94B;
  114.     (*$END*)
  115. (*$END*)
  116. PROCEDURE GetPattern*(patternID: INTEGER): Quickdraw.PatHandle;
  117.     (*$IF NOT GENERATINGCFM*)
  118.     INLINE PASCAL $A9B8;
  119.     (*$END*)
  120. PROCEDURE GetCursor*(cursorID: INTEGER): Quickdraw.CursHandle;
  121.     (*$IF NOT GENERATINGCFM*)
  122.     INLINE PASCAL $A9B9;
  123.     (*$END*)
  124. PROCEDURE GetPicture*(pictureID: INTEGER): Quickdraw.PicHandle;
  125.     (*$IF NOT GENERATINGCFM*)
  126.     INLINE PASCAL $A9BC;
  127.     (*$END*)
  128. PROCEDURE SlopeFromAngle*(angle: INTEGER): Types.Fixed;
  129.     (*$IF NOT GENERATINGCFM*)
  130.     INLINE PASCAL $A8BC;
  131.     (*$END*)
  132. PROCEDURE AngleFromSlope*(slope: Types.Fixed): INTEGER;
  133.     (*$IF NOT GENERATINGCFM*)
  134.     INLINE PASCAL $A8C4;
  135.     (*$END*)
  136. PROCEDURE DeltaPoint*(ptA: Types.Point; ptB: Types.Point): LONGINT;
  137.     (*$IF NOT GENERATINGCFM*)
  138.     INLINE PASCAL $A94F;
  139.     (*$END*)
  140. PROCEDURE ShieldCursor*((*CONST*)VAR shieldRect: Types.Rect; offsetPt: Types.Point);
  141.     (*$IF NOT GENERATINGCFM*)
  142.     INLINE PASCAL $A855;
  143.     (*$END*)
  144. PROCEDURE ScreenRes*(VAR scrnHRes: INTEGER; VAR scrnVRes: INTEGER);
  145.     (*$IF NOT GENERATINGCFM*)
  146.     INLINE PASCAL $225F, $32B8, $0102, $225F, $32B8, $0104;
  147.     (*$END*)
  148. PROCEDURE GetIndPattern*(VAR thePat: Quickdraw.Pattern; patternListID: INTEGER; index: INTEGER);
  149.     EXTERNAL PASCAL;
  150. PROCEDURE HiWord*(x: LONGINT): INTEGER;
  151.     (*$IF NOT GENERATINGCFM*)
  152.     INLINE PASCAL $A86A;
  153.     (*$END*)
  154. PROCEDURE LoWord*(x: LONGINT): INTEGER;
  155.     (*$IF NOT GENERATINGCFM*)
  156.     INLINE PASCAL $A86B;
  157.     (*$END*)
  158.  
  159. (* $ALIGN RESET*)
  160. (* $POP*)
  161.  
  162.  END ToolUtils.
  163.